#!/usr/bin/perl

#use if $ENV{DEBUG} => 'Smart::Comments';
use Smart::Comments;

use Getopt::Moose;
use Getopt::Moose::Parser;

use MyApp::Command;
use MyApp::Something;

my $parser = Getopt::Moose::Parser->new( config => ['pass_through'] );
### $parser: $parser

my $getopt = Getopt::Moose->new(
    argv => [ qw<-h --usage --string foo bar --number 123> ],
    parser => $parser
);
### $getopt: $getopt

my $app = MyApp::Command->new(
    getopt => $getopt,
);

$app->$_ foreach (qw{usage help string});

### $app: $app

my $sth = MyApp::Something->new(
    getopt => $getopt,
);

$sth->$_ foreach (qw{something});

### $sth: $sth
